63000 POKE52,32:POKE56,32:CLR:DIMS$(34),C(34,2):REM G$,G1$,G,G1,G2,A,B,X,Y,I
63010 POKE56333,127:POKE1,51:POKE781,8:POKE782,0:POKE88,0:POKE89,87:POKE90,0
63020 POKE91,215:SYS41964:POKE1,55:POKE56333,129:INPUT"FILE NAME";G$
63030 OPEN3,8,3,G$+".DIR,S,R":INPUT#3,G$,G1$:G=VAL(G$):G1=VAL(G1$):G2=G1-G+1
63040 FORI=1TOG2:INPUT#3,G$,G1$,G2$,G3$
63050 S$(I)=G$:C(I,0)=VAL(G1$):C(I,1)=VAL(G2$):C(I,2)=256*VAL(G3$):NEXT:CLOSE3
63060 FORI=1TOG2:OPEN1,8,1,S$(I):POKE780,0:SYS65493:CLOSE1:NEXT:POKE648,144
63070 POKE53281,1:PRINT"[147]":POKE53281,0:POKE648,4:A=56576:B=53272:POKE53265,16
63080 FORI=1TOG2:WAIT53265,128:X=C(I,0):Y=C(I,1):::::::::::::::
63090 POKEA,X:POKEB,Y:NEXT:GETB$:IFB$<>"[136]"THEN63080
63100 POKE53265,27:POKEA,199:POKEB,21